home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
t_os
/
jodan
/
jodan.bas
next >
Wrap
BASIC Source File
|
1993-11-30
|
652b
|
32 lines
10 DIM WA%(10016)
20 LOAD@ "WA.SND",WA%
30 SCREEN@0:CLS
40 CLS 1
50 READ A$
60 IF A$="*" THEN *WA
70 L=KLEN(A$)
80 FOR I=0 TO L-1
90 LOCATE 39+(I-INT(L/2))*2,12
100 PRINT KMID$(A$,I+1,1)
110 WAIT 10
120 NEXT
130 WAIT 200
140 GOTO 40
150 *WA
160 PCMPLAY WA%,127
170 SYMBOL(0,0),"わ",3,2,6
180 FOR I=-15 TO 15
190 A=16-ABS(I)
200 OUT &H440,27,2:OUT &H442,(A-1)*16+(A-1),2
210 WAIT 1
220 NEXT
230 WAIT 200
240 END
250 *DATA
260 DATA "何か、聞こえませんか?"
270 DATA "え、聞こえない?"
280 DATA "TOWNSから、何か聞こえませんか?"
290 DATA "音量を上げて、耳を澄ましてみてください・・・・"
300 DATA ""
310 DATA "*"